home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / qbtools1.arc / AEERRMSG.BAS < prev    next >
BASIC Source File  |  1987-01-12  |  609b  |  23 lines
  1. rem $linesize:132
  2. rem $title:'Application Engineer Standard Routines'
  3. rem $subtitle:'Print out a fatal error message and abort program'
  4.  
  5. '                Include the COMMON values
  6. rem $include:'AESHARED.BAS'            
  7.     
  8. Sub Ae.error(msg$) static
  9.  
  10.         attr%=(ae.bg%(3%) and 7%) *16% +ae.fg%(3%)
  11.  
  12.         k%=len(msg$)
  13.         k%=k%+4%
  14.         call xqprint ("+"+string$(k%,"-")+"+",10%,5%,attr%,0%)
  15.         call xqprint ("|  "+msg$+"  |",11%,5%,attr%,0%)
  16.         call xqprint ("+"+string$(k%,"-")+"+",12%,5%,attr%,0%)
  17.         locate 14,1
  18.         print "Last fatal error:    ";aesb.fatal%
  19.         print "Last non fatal error:";aesb.warning%
  20.         system
  21.  
  22.     end sub
  23.